home *** CD-ROM | disk | FTP | other *** search
/ PC Answers 2003 September / PC Answers September 2003.iso / Software / freeware / pixeltoolbox / Setup.exe / Main / PixelToolbox.exe / PixelToolbox.dxr / Scripts_67_load 4bit.ls < prev    next >
Encoding:
Text File  |  2002-06-08  |  2.4 KB  |  54 lines
  1. global gProject, gSize, g4bitValues, gPatScrListSelect, gPatternThumbLoc, gPatternScreenBoxHeight, gFontListBoxHeight, gPatternScreenBlend
  2.  
  3. on prepareFrame me
  4.   g4bitValues = [0: 0, 1: 1, 2: 2, 3: 3, 4: 4, 5: 5, 6: 6, 7: 7, 248: 8, 249: 9, 250: 10, 251: 11, 252: 12, 253: 13, 254: 14, 255: 15]
  5.   gPatternScreenBoxHeight = (member("pattern screen list").lineCount * member("pattern screen list").lineHeight) - (4 * member("pattern screen list").lineHeight)
  6.   gFontListBoxHeight = (member("fonts").lineCount * member("fonts").lineHeight) - (5 * member("fonts").lineHeight)
  7.   if (gProject = "icon") or (gProject = "cursor") then
  8.     if sprite(36).blend <> 0 then
  9.       myTX = sprite(36).member.image.getPixel(0, 0)
  10.       sprite(1).bgColor = myTX
  11.       sprite(20).bgColor = myTX
  12.       sprite(261).bgColor = myTX
  13.       sprite(262).bgColor = myTX
  14.       sprite(263).bgColor = myTX
  15.       sprite(264).bgColor = myTX
  16.     end if
  17.   end if
  18.   if gPatScrListSelect = 1 then
  19.     member("pattern screen preview").image.fill(member("pattern screen preview").rect, paletteIndex(0))
  20.     member("pattern temp").image.fill(member("pattern temp").rect, paletteIndex(0))
  21.     member("pattern screen list").scrollTop = 0
  22.     hilite char 1 to member("pattern screen list").text.line[1].length + 1 of field "pattern screen list"
  23.     gPatternThumbLoc = sprite(159).locV
  24.     gPatternScreenBlend = sprite(235).blend
  25.     gPatScrListSelect = VOID
  26.   else
  27.     sprite(159).locV = gPatternThumbLoc
  28.     sprite(235).blend = 100
  29.     put "100" into field "pattern screen opacity"
  30.     member("image text").antialias = 0
  31.   end if
  32.   if the text of field "current font" = line 1 of field "fonts" then
  33.     hilite char 1 to member("fonts").text.line[1].length + 1 of field "fonts"
  34.   end if
  35.   if sprite(47).rect = rect(598, 43, 622, 67) then
  36.     nothing()
  37.   else
  38.     sprite(47).rect = rect(598, 13, 622, 37)
  39.   end if
  40.   if the text of field "font size" > (integer(gSize) * 2) then
  41.     set the text of field "font size" to string(integer(gSize) * 2)
  42.     member("image text").fontSize = integer(gSize) * 2
  43.   end if
  44.   if the text of field "kerning" < -(integer(gSize) / 8) then
  45.     set the text of field "kerning" to string(-(integer(gSize) / 8))
  46.     member("image text").CharSpacing = -(integer(gSize) / 8)
  47.   else
  48.     if the text of field "kerning" > (integer(gSize) / 8) then
  49.       set the text of field "kerning" to string(integer(gSize) / 8)
  50.       member("image text").CharSpacing = integer(gSize) / 8
  51.     end if
  52.   end if
  53. end
  54.